home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9002a.d64 / mini-ass (c)1989 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  21 lines
  1. 30 FORI=1TO56:READI$:NEXT:DL=PEEK(65):DH=PEEK(66):FORI=1TO12:READI$:NEXT:READPZ
  2. 31 Z=2:F=0:D=0:READB$:BL=PEEK(65):BH=PEEK(66):ZL=PEEK(63):ZH=PEEK(64):L$=LEFT$(B$,3):RESTORE
  3. 32 OP$="0":H$=MID$(B$,5,1):L=LEN(B$):FORI=1TO56:READV$:ON(L$=LEFT$(V$,3))+2GOTO33:NEXT:GOTO40
  4. 33 Z$="":POKE65,DL:POKE66,DH:FORI=6TOL:ON-(L<6)GOTO35:Z$=MID$(B$,I,1):H=ASC(Z$)
  5. 34 IFH>47THENIFH<71THENH$=H$+" ":OP$=OP$+Z$:Z$=""
  6. 35 H$=H$+Z$:NEXT:FORI=1TO12:READAF$:ON(H$=AF$)+2GOTO36:NEXT:GOTO40
  7. 36 Z=Z+2:H=ASC(MID$(V$,Z,1)):Z=Z-(H>80):F=F+1-(H>80)*(H-80):ON-(F>I)GOTO 40
  8. 37 ON-(I>F)GOTO36:M$=MID$(V$,Z,2):H=ASC(M$):POKEPZ,(H-65)*16+ASC(RIGHT$(M$,1))-65
  9. 38 PRINTPZ,B$:PZ=PZ+1:FORI=1TOLEN(OP$):H=ASC(MID$(OP$,I,1))-48:D=D*16+H+(H>16)*7:NEXT
  10. 39 G=INT(D/256):POKEPZ,D-G*256:POKEPZ+1,G:PZ=PZ+INT(LEN(OP$)/2):POKE65,BL:POKE66,BH:GOTO31
  11. 40 PRINT" SYNTAX ERROR IN";ZL+ZH*16:END:DATALDAQKJKNKFLNLJLFLBKBS,STARINIFJNJJJFJBIBS
  12. 41 DATALDXQKCKOKGQLOSLGR,STXRIOIGUJGR,LDYQKAKMKELMQLEU,STYRIMIERJEU,INCROOOGPOQPGU
  13. 42 DATADECRMOMGNOQNGU,JSRRCAY,JMPREMXGM,ADCQGJGNGFHNHJHFHBGBS,SBCQOJONOFPNPJPFPBOBS
  14. 43 DATAINXOI\,INYMI\,DEXMK\,DEYII\,BEQQPA[,BNEQNA[,BCSQLA[,BCCQJA[,BMIQDA[,BPLQBA[
  15. 44 DATAANDQCJCNCFDNDJDFDBCBS,ORAQAJANAFBNBJBFBBABS,EORQEJENEFFNFJFFFBEBS,BITRCMCEX
  16. 45 DATACMPQMJMNMFNNNJNFNBMBS,CPXQOAOMOEX,CPYQMAMMMEX,BVSQHA[,BVCQFA[,RTSGA\,RTIEA\
  17. 46 DATATAXKK\,TXAIK\,TAYKI\,TYAJI\,CLCBI\,SECDI\,CLDNI\,SEDPI\,CLIFI\,SEIHI\,CLVLI\
  18. 47 DATAPHAEI\,PLAGI\,PHPAI\,PLPCI\,TXSJK\,TSXLK\,BRKAA\,NOPOK\,ASLRAOAGBOQBGSAKQ
  19. 48 DATALSRREOEGFOQFGSEKQ,ROLRCOCGDOQDGSCKQ,RORRGOGGHOQHGSGKQ,"",#$  ,$    ,"$  "
  20. 49 DATA"$    ,X","$    ,Y","$  ,X","($  ),Y","($  ,X)","$  ,Y",A,($    )
  21.